### Renato Mitsuo Nagata


###Lista de Exerccios 2

### modelo 1 
> d=15
> h=12
> b1 = exp(-1.7953) * d^(2.2974)
> b1
[1] 83.61095

### modelo 2
> b2 = exp( -2.6464 + 1.9960*log(d) + 0.7558*log(h) )
> b2
[1] 103.2301

### R. Os modelos geram diferentes (~20kg) valores biomassa

### Sequncias

> rep ("a", each= 6)
[1] "a" "a" "a" "a" "a" "a"

>  rep (c(1,2,3), each=3)
[1] 1 1 1 2 2 2 3 3 3

> rep (1:3, times=c(3,2,1))
[1] 1 1 1 2 2 3

> c((1:5), (4:1))
[1] 1 2 3 4 5 4 3 2 1

> seq(from=1, to=99, by=2)
 [1]  1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49
[26] 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99

## Conta de Luz
> Consumo =  c(9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717, 14052)

## Consumo por Ms:
> diff(Consumo)
 [1] 310 337 260 518 420 398 517 405 346 367 335

## Parmetros 
> mean(Consumo.mensal)
[1] 383
> var(Consumo.mensal)
[1] 6476.2
> max(Consumo.mensal)
[1] 518
> min(Consumo.mensal)
[1] 260
> median(Consumo.mensal)
[1] 367

## rea basal rvore
## Exercco 1

> DAP = 13.5
> r = DAP/2
### rea basal
> rea.basal = pi*r^2
> rea.basal
[1] 143.1388

## Exerccio 2
>  c((pi*r1^2), (pi*r2^2), (pi*r3^2))
[1] 153.9380 254.4690 452.3890

## Exerccio 3
## Exerccio 1 Varincia e Desvio Padro na Unha:

> variancia <- sum((pesos - mean(pesos))^2)/ (length(pesos)-1)
> variancia
[1] 3.110606
> Desv.pad = sqrt(variancia)
> Desv.pad
[1] 1.763691

## Exerccio 2 Comparao com Varincia e Desvio Padro do R
> var(pesos)
[1] 3.110606
> sd(pesos)
[1] 1.763691
### No h diferenas entre os valores obtidos manualmente e os obtidos pelo R.

### Test-T
### Teste com valor de t = 2,2, g.l.=19
> pt(-2.2, 19, lower.tail = TRUE, log.p = FALSE)+ pt(2.2, 19, lower.tail = FALSE, log.p = FALSE)
[1] 0.0403811
### Valor significativo ao nvel de 5%
### Teste com valor de t = 1,9, g.l.=19
>  pt(-1.9, 19, lower.tail = TRUE, log.p = FALSE)+ pt(1.9, 19, lower.tail = FALSE, log.p = FALSE)
[1] 0.0727184
### Valor no significativo ao nvel de 5%

